home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
ImageMaster_d3.adf
/
piarc.lzh.parta
/
BRToTL.rxwp
< prev
next >
Wrap
Text File
|
1992-10-27
|
618b
|
27 lines
/* Test rexx script to fill wipe buffer */
parse arg cframe mframe
options;
address;
if mframe = 0 then do
call open(fhandle,'ram:IM_WIPE.tmp2','write'); /* open the file */
junk = writeln(fhandle, 0);
junk = writeln(fhandle, 0);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 0);
junk = writeln(fhandle, 0);
call close(fhandle); /* close the file */
end;
else do
fp = cframe / mframe;
fp1 = 1 - fp;
address("IM_WIPER");
'displace 0,0,'||fp1||','||fp1
'box '||fp1||','||fp1||',1,1'
'close'
end;
exit 0;